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**F ILE**1D**RMSCONIO 
RRRRRRRR MM MM SSSSSSSS cccccccc 000000 NN NN HII! 000000 
RRRRRRRR MM MM SSSSSSSS ccccccce 000000 NN NN III 000000 
RR RR MMMM MMMM SS cc 00 NN NN I] 00 00 
RR RR MMMM MMMM SS cc 00 00 NN IN I] 00 00 
RR RR MM MM MM SS cc 00 00 NNNN NN I] 00 00 
RR RR MM MM MM SS cc 00 00 NNNN NN I] 00 00 
RRRRRRRR MM MM SSSSSS cc 00 0O NN NN NN I] 00 00 
RRRRRRRR MM MM SSSSSS cc 00 OO NN II 00 00 
RR RR MM MM sS CC 00 00 NN NNNN II 00 00 
RR RR MM MM SS CC 00 00 NN I] 00 00 
RR RR MM MM SS CC 00 00 NN NN I] 00 00 eeee 
RR RR MM MM ss CC 0 00 NN NN I] 00 00 cece 
RR RR MM MM SSSSSSSS cccccccc 000000 NN NN III! 000000 coe 
RR RR MM MM SSSSSSSS ccccccce 000000 NN NN III! 000000 eeee 
LL III] SSSSSSSS 
LL 111K] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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NPUT = RMS INPUT INTERFACE 


LOPEN = Routine to open 
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ACTION ROUTINES 


ase 


- Open file for SE 


OUTPUT = RMS OUTPUT INTERFACE ROUTINE 
ADPROMPT = Prompt and a inpu 


E 
s FOR /OUTPUT= QUALIF 


K 10 


e parameter file 
FILE = Routine to write the system parameter file 
CREATE SWAP OR PAGING FILE 
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RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 t § +33:98 yanve Mac; o V04-00 Page 1 
vO4 4-SEP=1984 25:05: BOOTS .SRCJRMSCONIO.MAR; 1 (1) 
TAT gusconte. = RMS INPUT/OUTPUT MODULE 
- IDEN 


«DEFAULT DISPLACEMENT ,LONG 


> pe aa gat a alg i te bec hata ates nntsN hel i 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


i 
a 
® 
ae 
® 
w 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWA E OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
ke 
we 
® 
® 
ca 
® 
® 
* 
* 
* 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oe kat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 * peach OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


@eeeneneneeneneneneeeennnnne Py 


=PPRAARAARARALASLAALALAASLALALA SELES ARLE RASA RAR RRA RARER EARL R RRR RRR RRA RRA D ARAL SD A 


; "FACILITY: SYSGEN UTILITY 


; ABSTRACT: RMSCONIO PROVIDES ROUTINES TO PERFORM CONSOLE, COMMAND 
; AND FILE 1/0 FOR THE SYSGEN UTILITY 


; ENVIRONMENT: NATIVE/USER MODE CODE 


AUTHOR: R.1. HUSTVEDT, CREATION DATE: 7-SEP-1977 
; MODIFIED BY: 
v03-018 WHM0007 Bill 27-Jun-1984 
Don't set/clear BOOCMDSY. TERAINAL for /OUTPUT=. 
V03-017 WHM0006 ill Matthews 26-Jun-1984 
Added RIO_OUTFABS and RIO gutnass for use by UeET OUTPUT so it 
won't conflict with /OUTPOT= 
v03-016 WHMO00S Bill Matthews 25-Apr-1984 
Added an initial allocation size for sapeneunt file of 15 blocks. 
v03-015 eneges Bill Matthews i oth p 
e writing of 


dded routine BOOSURTSYSPART ILE to support t 
che default system parameter file. 
Added suppor$ for writing ascii sysgen parameters that are 
longer t 4 characters to a parameter file. 


v03-014 wHM0003 Bill Matthews 28-F eb-1984 


NAW WW OS DODANE WIN 0 OD NAME WIN SO OD NAU EWN 9 OD NAUES WN" OOONOUS win 


PUPS SPVUSVSISVN B® Be BB BEE EE EAN NIAAA DIPUNIPUNINPUNINPYN 2 PO OO os oe es 
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vou-000 2786 p=198¢ 33:09:57 taoors. sre RMSCONIO.MAR; 1 a db 


28 Make BOOSUFOOPEN use SYSSSYSTEM:.EXE as a default name string. 
$9 v03-013 wMc0013 Wayne Cardoza 16-Jan-1983 

? Remove or bypass ¢ ARR related code. 

86 v03-012 $OP0001 Sopka 27 December 1983 


Invoke MMGSRET aii guorR” during processing to convert wCB 
for page or swap file to a permanent system data structure. 


v03-011 wHM0002 Matthew 09-Dec-1983 
rg HS BOOSCREATE. to set the CBT bit in the 
allocation XAB before an RMS SEXTEND te attempted. 


v03-010 wHM0001 Bill Matthews 17-Nov-1983 
Modified BOOSINSTALL to deassign the channel to the file 


ODOCOOOOCOCoOoCoOooooO 


SOOoOoOoooooooooooooooooooooooooo 
SOOSCOCSOSOSOSOOOSOSOSOOSOOSOOSOOSOOSOSOSoOSoOO 


SOOOOOCOOOOOOOSOOSOSSOSSSOSSOSSSSSSSSSSSS GOCOCOCOOCOOCOCOOOCOOOOOOOO 


on successful installation of the new swap or page file 


v03-009 wMC0004 Cardoza 27-Jul-1983 
Add BOOSFILCLOSE” BOOSUFOOPEN. 
v03-008 MSHO002 Maryann Hinden 24-Jun-1983 
Change SBOODEF to SBOOCMDDEF. 
v03-007 MSHO001 ann Hinden 13-Jun-1983 
Use SBOODEF “ly BO TS.MLB. 
v03-006 wMC0003 Wayne Cardoza 10-Mar-1983 
If page file is not installed for checkpointing, invalidate 


any saved checkpoints. 


OOWDWNAUNE WN $9 ODNAOULSWN "OC OOne 


OO OOOO 00090969 09 09 09 09 09 09 09 SI NI NII NN NINO AAO 
Ue Wr — wer 


0 
0 
0 
0 
0 
0 
0 
0 
000 
000 v03-005 wecO002 wayne Cardoza 15-Feb-1983 
000 Don't leave file locked or poot in use if checkpoint 
44 aw B. of page file installation fails. 
000 v03-004 wmMc0001 Wayne Cardoza 12-Aug-1982 
B28 Add support for ne ee in page file installation. 
000 v03-003 JLV0204 Noy 29-MAR-1982 
Bn8 ° Set UFO bit in suAPrHtras n INSTALL. 
00 98 v03-002 JLV0198 Jake VanNoy 17=MAR-1982 
00 99 New create logic to extend Yentsting files it /CONTIGUOUS 
38 139 isn't specified. 
000 19¢ v03-001 LJK0148 Lawrence J. Kenah 16-Mar-198 
bp 10 Remove ACP call for partially mapped file as that situation 
00 104 can never happen. 
00 105 
00 16 7: 
4 : -SBTTL DECLARATIONS 
00 199 ; INCLUDE FILES: 
00 14 ; $BOOCMDDE ; DEFINE SYSGEN COMMAND OPTIONS 
3 6 SCCBDEF ; DEFINE CHANNEL CONTROL BLOCK 
11 SDYNDEF : DEFINE STRUCTURE TYPE CODES 
00: 114 SIPLDEF : IPL CONSTANTS 


et I ts ee — ee 


= RMS INPUT/OUTPUT MODULE 13-SEP-1984 33:59:24 YAX/ vas Macro v04-00 Page ; 
DECLARATIONS 4=SEP-1984 23:05: BOOTS. SRCIRMSCONIO.MAR; 1 (1) 
000 115 $F ABDEF ; RMS FAB DEFINITIONS 
6 116 $F IBDEF + FILE INFORMATION BLOC 
11 SPFLDEF : PAGE FILE CONTROL BLOCK 
0 118 SPRMDEF + DEFINE PARAMETER BLOCK 
99 11 SPTEDEF ; DEFINE PTE FIELDS AND CONSTANTS 
120 SRABDEF : RMS RAB DEFINITIONS 
000 121 SSHROEF : SHARED MESSAGE DEFINITIONS 
000 1 ‘ SSTSDEF : STATUS MESSAGE DEFINITIONS 
000 1 $SYSGMSGDEF : SYSGEN MESSAGE DEFINITIONS 
000 124 STPADEF + DEFINE TPARSE SYMBOLS 
a8 SWCBDEF : WINDOW CONTROL BLOCK 
127 ; 
9009 g ; EQUATED SYMBOLS: 
00000100 $000 130 ° BUFFER _SIZE=256 : Buffer size for /OUTPUT= & /INPUT= 
00000080 2098 1 FILNAMSIZ=128 
000 138 : 
0000 134 ; OWN STORAGE: 
0000 135; 
0000 136 
000 Oo ELA -Psect PAGED_DATA rd,wrt,noexe,quad 
53 49 4C 3 9000 139 DEFNAM: .ASCII /.LIS/ : INITIAL DEFAULT IS LISTING 
000000 004 140 <BLKB 48-4 : DEFAULT NAME GOES HERE 
000080 9030 141 EXPFNM: .BLKB FILNAMSIZ : EXPANDED NAME HER 
00000130 080 149 RSLFNM: .BLKB FILNAMSI? + RESULTANT NAME HE 
00000189 oi 143 OUTNAM: .BLKB  FILNAMSIZ : OUTPUT FILE NAME HERE 
000001¢4 180 144 RHBUF: .BLKB 20 : RECORD HEADER BUFFER 
54 55 50 4E 49 24 53 59 53 Bree 146 INPNAM: .ASCII /SYSSINPUT/ : INPUT NAME STRING 
00000009 He 147 INPNAMSZ=.-INPNAM : SIZE OF INPUT STRING 
54 55 50 54 55 4F 24 53 59 53 O1CD 129 OUTPNAM:.ASCII /SYSSOUTPUT/ : OUTPUT NAME STRING 
0000000A o107 130 OUTPNAMSZ=.-OUTPNAM : SIZE OF OUTPUT STRING 
52 41 50 2E 54 4C 55 41 46 45 44 0107 138 PRMDEF: .ASCI1 /DEFAULT.PAR/ : DEFAULT NAME STRING 
00000008 a5 133 PRMDEF S12=.-PRMDEF : STRING LENGTH 
2E 3A 4D 45 54 53 59 53 24 53 59 53 Oe 155 EXEDEF: .ASCII /SYSSSYSTEM:.EXE/ : DEFAULT NAME FOR .EXE'S 
0000000F iF 156 EXEDEFSIZ=.-EXEDEF : STRING LENGTH 
00 O1F1 138 INP_OPEN: .BYTE : INPUT OPEN FLAG 
00 IF 199 OUTP_OPEN: .BYTE : OUTPUT OPEN FLAG 
1F 161 
00000213 1 168 ZEROES: .BLKL 8 : 
164 + RMS 32 DATA STRUCTURES 
1 166 * 
1 183 .ALIGN QUAD : ALIGN FOR PERFORMANCE 
1 168 RIO_OUTFAB: : + EXTERNA 
1 16 $FAB ss FAC =PUT, = : OUTPUT FAB, ACCESS IS PUT 
18 170 FNA=OUTPNAM, = : OUTPUT NAME STRING 


B11 
| RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 4 VAX/VMS Macro V04-00 Page 4 
WOnso00 DECLARATIONS 4-SEP-1984 t $3233 ‘8s BOOTS. SRCJRMSCONIO.MAR; 1 ew 
1 FNS=OUTPNAMSZ,= : AND LENGTH 
1 ORG=SEQ,- t SEQUENTIAL FILE 
1 NAM=R10_OUTNAM, = t ASSOCIATED NAME BLOCK 
1 FOP=SUP-- + SUPERSEED IF NECESSARY 
1 DNA=DEFNAM, = : DEFAULT NAME ADDRESS 
i RAT=CR + DO CR/LF PER LINE 
6 RIO_OUTNAM: : : OUTPUT NAME BLOCK 
0268 SNAM —saRSA=OUTNAM, - : 
026 RSS=FILNAMSIZ, = : 
6 ESA=OUTNAM + EXPANDED AND RESULT IN SAME PLACE 
6 ESS=FILNAMSIZ, ; 
02C8 RIO_OUTRAB: : : 
0 8 $RAB  —s- RAC =SEQ,- : RECORD ACCESS IS SEQENTIAL 
C8 RHB=RHBUF , = + RECORD HEADER BUFFER 
Oec8 FAB=R10_OUTFAB + ASSOCIATED FAB 
30¢ RIO_INPFAB: : ; 
30¢ $FAB  —« FAC=GET,- : FILE ACCESS IS GET(READ) 
30¢ FNA=INPNAM, = + INPUT FILE NAME STRING ADDRESS 
30¢ FNS=INPNAMSZ,- + INPUT STRING SIZE 
30¢ NAM=RI0_INPNAM, = > ADDRESS OF ASSOCIATED NAME BLOCK 
30¢ DNA=DEFNAM, - : ADDRESS OF DEFAULT NAME BUFFER 
30¢ DNS=4 : DEFAULT SIZE STARTS AT 4 
35C R1IO_INPNAM: : : 
35¢ SNAM —«ESA=EXPFNM,- ; EXPANDED NAME BUFFER ADDRESS 
35¢ ESS=F ILNAMSIZ,- ; AXIMUM Size FOR EXPANDED NAME 
RSA=RSLFNM,- : RESUL TAN NAME 
RSS=F ILNAMS1Z,- + AND tie 1S SAME 


RIO_INPRAB: : 
SRAB SEQUENTIAL ACCESS TO FILE 

PROMPT READ AND CONVERT TO UPPER CASE 

RECORD HEADER BUFFER 

ASSOCIATED FILE ACCESS BLOCK 


RAC=SEQ,- 

ROP= =Pmt CVT>,= 
RHB=RHBUF 
FAB=R10_ INPF AB 


Sete Se Ge Ge 


: PARAMETER FILE INPUT/OUTPUT FAB/RAB 


BRM. INFAB: 
$FAB  - FAC=<GET,BIO>,- : READ Access 
NA=PRMDEF : DEFAULT NAME 


RMDEF 
DNS=PRMDEF§1Z,- ; DEFAULT NAME SIZE 

NAM=RIO_INPNAM ; NAME BLOCK 
PRM_INRAB: : 


$RAB  -~ FAB=PRM_INFAB : ASSOCIATED FAB 
; PARAMETER FILE OUTPUT RAB/RAB 


494 BRM_OUTFAB: 
SFAB 


PROPIPININININIDS 9 9 9 OM DOOCOOOOOOOO OO OOO 0 OO OOO WOOO WO VN 
NOME WN OOO NAME WN SO OD NAUE WIN (OO ONAN WN 9 COONAN EW OOONOUS wr 


PORIPONIPOPOPONONOPONOPONONOPONOPONUNONONPUNIPONINININY 2 2 ee 


496 FAC=<PUT, TRN>,= : 

494 DNA=PRMDEF,-  : DEFAULT NAME 

494 DNS=PRMDEFSIZ,- : DEFAULT NAME LENGTH 
494 RENEE IX. : FIXED RECORD FORMAT 
494 MRS=512.- : 


53 59 53 2€ 
00000004 


00000000 
00000000 


3A 54 55 50 54 55 4F 
00000007 


SOOOOSOOOSOOSOSOSOOSOSOOSOSOOSOSOSOSOSOSOSOSOSOSOOSOOOOOOCOOOOOOOOOOOOOOO 


PDD DPD DED DDE DED DE DEDEDE DEDEDE TUT a 
WDD FLL SSF LOOM OOOO OODDL HSL LLLP LEE HE OW WWW WOOOOW WOOL LEE 


WANA AMAA WAINIWIARIRIPININININININIM MMM MMOr Lb } } & wlonononronrofonopronororofrommmmn 


po ag acer 8 tH aE EEE OE HY SS 
onNNNNN 
co We 


SWAPFHCE 


SWAPFHCX 
SWAPALLX 


SWAPALLX 


SWPDEFNA 
SWPDEFNA 


Boosct S 
BOOSGL_I 


SIDS OS OS DS OS DSO OS DS TTT TTT BS BS BS BB BEE ENNIO 
AO OOD NAME WN SO ODNA UE WN O ODNAU SW OUOONOAUS Wh 


i OWN ST 


1 OUTFNM: 
79 
0 


SWAP_RAB: 


= RMS INPUT/OUTPUT MODULE 15-SEP-1984 23:59:24 VAX/VMS Macro V04-00 Page 5 
DECLARATIONS Fae eet 1 $3 :05: ‘8s Yeoors Ske RMSCONIO.MAR; 1 * «hh 
494 : FOP=¢1G,~ : CONTIGUOUS 
94 ALQ=15,- $ sa ee ee allocate 15 blocks 
49 0 NAM=RIO_INPNAM : NAME BLOCK 
PRM_OUTRAB: : OUTPUT RAB 
$RAB = FAB=PRM_OUTFAB,- : ASSOCIATED FAB 
RS7=512,- : RECORD SIZE 
RBF =BOO$AB_PRMBUF : BUFFER ADDRESS 


SWAPFILE FAB USED TO OBTAIN STARTING LBN OF SWAPFILE 
AB: $FAB FAC=<GET, ¢PUT ptOee - ; FILE ACCESS IF hese PUT (READ & WRITE. 


DNA=SWPDEFNAM,= ; DEFAULT FILE NAME STRING A 
DNS= = SUPDEFNAMSZ 6< DEFAULT FILE NAME STRING SIZE 
M=FIX,< ; FIXED “edith FORMAT 
fines 512.- MAXIMUM RECORD SIZE OF ONE PAGE 
NAM=R : * INPNAM, =: NAME BLOCK ADDRESS 
TV ; LET ACP COMPUTE LARGEST RETRIVAL WINDOW 
KAB=SGABFHCXAB ; EXTENDED ATTRIBUTE BLOCK 
AB: $XABFH ; EXTENDED ATTRIBUTE BLOCK FOR FILE HEADER 
AB: SKABALL . : EXTEN DED ATTRIBUTE BLOCK FOR ALLOCATION 
L=1,- > ALWAYS ALLOCATE ON RELATIVE VOLUME #1 
1o=<ttG, HRD>,= ; CONT 1@uous AND FORCE VOLUME PLACEMENT | 
ALN=LBN ; (MUST SPECIFY SO VOL IS USED 
ABNC:  $XABALL - EXTENDED ATTRIBUTE BLOCK FOR NON-CONTIGUOUS Ai_OCA. 
AOP=<(BT> : CONTIGUOUS BEST TRY 
: OUTPUT RAB 
SRAB  —s« FAB=SWAPFHCFAB,- : ASSOCIATED FAB 
RAC=KEY,- 
RS2=512.- : RECORD SIZE 
RBF=ZEROES + BUFFER ADDRESS 
M: eASCII. /.SYS/ FAULT NAME STRING 
MSZ=.-SWPDEFNAM : SIZE of SE AULT NAME STRING 


PARSED PARAMETERS FOR SWAP FILE CREATION AND INSTALLATION 


IE: : FILE SIZE 

DEX: : RETURNED PFL INDEX 
.LONG 0 

ORAGE: 


eASCIIT = \OUTPUT:\ 
OUTSIZ=.-OUTFNM 


_-_— ——_ 7 


ee 


‘ees 


0000 


00000008 

O1FC 

52. OO00003BC'EF 9 
26 OOOOOIFI"EF €E 
00 OD 

QOOOO30C*EF 9F 
OOOOO0000'EF O02 FB 
0150 =€8 
04 
23 50 €9 
OOOOOI1FI*EF 01 90 
20 A2 08 AC BO 
24 A2 OO00C'CC 00 
01 50 be 
51 22 a2 C 
04 


SOoOoooooooooooooooooo 


SOSSOSOOCOCOSOSSOSOSOSSSSSSOSGOAAAAAS 


SOoooooooooooooooooo 


PUNPUT INTERFACE 


" FUNCTION, 
RIO 


: CALLING SEQUENCE: 


; INPUT PARAMETERS: 
; BUF CAP) = 


10$: 


15$: 


MODULE 


-SBTTL 


LOGICA 


AND Size. 


CALLG 


; SIZE (AP)= 

: OUTPUT PARAMETERS: 
: RO ° 
817 


R1 


INPUT READS A 


Rr gee 1882 38:38 


36 AX/VMS Macro V04-00 
:27 ([BOOTS.SRCJRMSCONIO.MAR; 1 


RIOSINPUT = RMS INPUT INTERFACE 


PUT READS A RECORD FROM THE DEVICE OR FILE DESCRIBED BY T 
L NAME ‘INPUT’ INTO THE BUFFER DESCRIBED BY THE ARGUMENTS BUF 
THE ACTUAL SIZE READ” 1S RETURNED IN R1. 
ARGLIST,RIOSINPUT 
BUFFER ADDRESS 
MAXIMUM SIZE OF READ 


COMPLETION STATUS 


° ACTUAL SIZE OF RECORD IN BYTES 


; COMPLETION STATUS CODES: 
; STANDARD RMS COMPLETION STATUS CODES 


-Psect PAGED_CODE 
RIOSINPUT:: 


- WORD 
MOVAB 


R10. 
P-OPEN. 15$ 


RIO_INPFAB 
+e $1 SSOPEN 
RO,10$ 


SCONNECT Ro s0s 
BLBC 


MOVB 


i, INP_OPEN 


SIZE(AP) ,RABSW_USZ(R2) 
BUF CAP) , »RABSL _OBF (R2) 


RO,208 
RABSW_RSZ(R2),R1 


OFFSET TO SIZE ARGUMENT 


rd,nowrt,exe, long 


arte tf R4,R5,R6,R7, RB>: 
PRAB,R2 


INPUT eb eae + tetas 
ort taba SAVE M 


IF I 
; OUTPUT OPEN FAILURE AST 
THE FAB 
; OPEN THE FILE 


BR_IF OPEN OK 
RETURN ERROR STATUS 
CONNECT TO INPUT STREAM 


BR IF 
MARK INPUT OPEN AND CONNECTED 


SET SIZE FOR INPUT 
AND BUFFER ADDRESS 
GET A RECORD 


SUCCESS 

RETURN ERROR STATUS 

GET SIZE OF RECORD 
TURN 


Page 


6 
(1) 


a 
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RMSCONIO S INPUT/OUTPUT MODULE 15-SEP-1984 9:24 VAX/VMS Macro V04-00 Pa 7 
¥0L=000 1oscUrPUY RMS OUTPUT INTERFACE ROUTIN 4-SEP=1 1384 $3 38 :3$ BOOTS. SRCJRMSCONIO.MAR;: 1 ” i | 
| 05 1 ad -SBTTL RIOSOUTPUT = RMS OUTPUT INTERFACE ROUTINE | 
| $2 : : FUNCTIONAL DESCRIPTION: 
09 4; RIOSOUTPUT WRITES THE BUFFER DESCRIBED BY THE BUF AND SIZE 
5 5; ARGUMENTS TO THE DEVICE OR FILE SPECIFIED BY THE LOGICAL NAME 
82 $ 3 OUTPUT. 
05 8; RIOSOUTPUTC WRITES THE COUNTED ASCII STRING SPECIFIED BY THE 
05 9; BUF ARGUMENT TO THE DEVICE OR FILE SPECIFIED BY THE LOGICAL NAME 
909 40 ; OUTPUT. 
05 41; 
09 4¢ 3 CALLING SEQUENCE: 
003 43 3 CALLG  ARGLIST,RIOSOUTPUT/RIOSOUTPUTC 
05 45 : INPUT PARAMETERS: 
0 4g ; BUF (AP) = ADDRESS OF BUFFER OR ADDRESS OF COUNTED STRING IF 
003 48 : SIZE(AP)= NUMBER OF BYTES TO BE OUTPUT (RIOSOUTPUT ONLY) 
005 50 : 
005 51 ; IMPLICIT INPUTS: 
Bne 25 3 INPUT RAB AND FAB 
0033 54 : OUTPUT PARAMETERS: 
B88 2? g RO - COMPLETION STATUS CODE FROM RMS 
005 57 : COMPLETION CODES: 
003 28 : STANDARD RMS COMPLETION STATUS CODES 
0053 360 :-- 
0053 61 
00000004 05 62 BUF = : OFFSET TO BUFFER ADDRESS ARGUMENT 
0033 64 RIOSOUTPUTC : QUTPUT COUNTED STRING 
0000 005 65 0 0 : ENTRY MASK 
51 04 aC D0 0055 366 OVL BUFC(AP),R1 : GET RBUFFER ADDRESS 
7E 81 9A 0059 367 “MOV7BL (R1)+,-(SP) ; PUSH SIZE OF WRITE 
51 pd 005¢ 368 PUSHL 1 : AND BUFFER ADDRESS 
63'AF 02 FB O05E 369 CALLS #2,B*RIOSOUTPUT : CALL OUTPUT 
04 906 20 ET : AND RETURN 
i ee RIOSOUTPUT: : : RMS OUTPUT INTERFACE ROUTINE 
OOFC 006 7 .WORD “M<R2,R3,R4,R5,R6,R7> ; REGISTER SAVE M 
52 000002c8'EF 3 065 374 MOVAB RIO _OUTRAB,R2 : GET ADDRESS AY OUTPUT RAB 
48 000001F 2°EF f 06¢ 75 BS  OUTP_OPEN, 10$ : BR IF FILE ALREADY OPEN 
00000273"EF 94 00 i: B NAMSB pf st sR10_OUTNAM : ZERO EXPANDED NAME LENGTH 
9079 7 SCREATE R10, 00 TFAB : CREATE TYPING FILE 
4550 €9 O86 8 C 20$ : BR IF OPEN FAILED 
00010000 8F CA 0089 380 BICL  #BOOCMDSM_TERMINAL,- 
00000000° EF BF 81 BOOSGL _CMBOPT : ASSUME NOT A TERMINAL DEVICE 
90000000 BF E1 0094 82 BBC #DEVSV" TRE, - 
00000258' EF 009A «= 38 R1O_OUTFAB+F ABSL_DEV,- 
08 O9F 84 . : BRANCH IF NOT 
00010000 8F C8 OAQ 5 BISL § #BOOCMDSM_TERMINAL,- 
00000000 ' EF Bae § BOOSGL_CMBOPT : SET AS A TERMINAL DEVICE 


| FM 7 
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R10$0U RMS OUTPUT INTERFACE ROUTIN 4- BOOTS. SRCJRMSCONIO.MAR; 1 
OOAB 388 5S: SCONNECT (R2) : CONNECT TO OUTPUT STREAM 
QOOOOIF2"EF 01 90 00B4 389 MOVB -#1,0UTP_OPEN + MARK OUTPUT STREAM OPEN 
28 A204 AC «OO «(00BB.) «390 108: = MOVL Sut caP) > RABSL_RBF(R 2) ; ser OUTPUT BUFFER 
22 A208 AC BO 0c 91 nov S1ZECAPS, RABSQ_RSZ(R2) : AND SIZE 


3 PRINT LINE 
04 OOCE 334 208: RETURN 
95 


G 11 
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BOOSREADPROMPT = Prompt and read input s 4-SEP- 5 33:03:55 f CIRM 99 


9 
9 BOOTS.SRCJRMSCONIO.MAR; 1 
338 oe -SBTTL BOOSREADPROMPT = Prompt and read input string 
99 : Functional Description: 

BOOSRE ADPROMPT eutputs the specified ASCIZ prongs string on the 
console terminal then checks the count of characters to be read. 
If zero it exits, otherwise it reads the console terminal until 


OOOO 


aa 


4 either a orrtege return is encountered or the character count 
404 is satisfied. he specified buffer is filled with an ASCIC 
405 string containing the characters read but not including the 
rh terminating carriage return. 


pope lololololelelololeloio) 
COOCOoO 


= 
io 
Se Se Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge 


£ 
F 
F 
F 
F 
F 
F 
OCF 
pce 
CF 
OCF 
pct $38 seaeiatie Sequence: 
CF & ALL ARGLIST,BOOSREADPROMPT 
OOCF 410 
doce cig: TTPUt PROMPT CAPS = Add f ASCIZ t stri 
- ress 0 prompt strin 
00000004 90cF “i$ PROMPT = 4 . 
OOCF 415 SIZE CAP) - Maximum Length of input string 
00000008 OOCF $18 SIZE = 8 
OOCF 417; Note: if size is zero, then nothing is read 
Boer rit g and only the prompt string is written. 
OOCF 420; BUF (AP) - Address of input buffer 
0000000C yee ? 1 BUF = 12 
OOCF 4 g ; Output Parameters: 
ayer : : g RO = Completion status code (always SS$_NORMAL) 
OOCF 426; Buffer located by BUF(AP) will be filled with the string 
OOCF 427 ; read as an ASCIC string. 
OOCF 428 ; 
OOCF 429 ;-- 
OOCF 430 BOOSREADPROMPT:: ; 
OOFC OOCF 431 eWORD “M<R2,R3,R4,R5,R6,R7> 3 
04 BC FAOO 8F 00 3A 0001 $38 LOCC #0, #64006 @PROMPT (AP) 3; FIND END OF PROMPT STRING 
57 $1 4 AC C3 0008 43 SUBL3 PROMPT(APS ,R1,R7 ; COMPUTE CHARACTER COUNT 
52. QOO0003BC'EF 9E O0DD $38 MOVAB RIO_INPRAB,R2 ; GET INPUT ADDRESS 
26 OOOOOIFI*EF E8 QOES 435 BLBS INP~OPEN,15$ : BR_IF INPUT IS ALREADY OPEN 
OD Spee $38 PUSHL 0 3; OUTPUT OPEN FAILURE AST 
0000030C EF OF BER é PUSHAB RIO_INPFAB ; THE FAB 
00000000‘ EF 28 FB OOF 438 CALLS #2,SYSSOPEN 3; OPEN THE FIL 
01 5 8 OOFA 439 L RO,10$ ; BR IF OPEN OK 
4 Bore 440 RET ; RETURN ERROR STATUS 
FE 441 10$: 3 
ore rr} SCONNECT (ne ; CONNECT TO INPUT STREAM 
42 50 9 010 44 BLBC RO,50$ ; BR IF ERRO 
000001F 1°EF 01 0 Q10A 444 MOVB #1, INP OPEN ; MARK INPUT OPEN AND CONNECTED 
20 A208 ag 8 111 +445 15$: MOVW SIZE (AP) ,RABSW_USZ(R2) ; SET SIZE FOR INPU 
2 1 116 263 BEQL NORE AD 3 NO BUFFER THEN NO READ 
34 A2 7 90 0118 44 MOVB R7,RABSB_PSZ(R2) ; SET SIZE FOR PROM 
30 A2 O04 AC DO O11C 448 MOVL PROMPT CAB) ,RABSL_PBE (R2) ND PROMPT ADDRESS 
24 A2 OC AC O01 1 121 449 ADDLS #1,BUF (AP) ,RABSL_UBF(R2); AND BUFFER ADDRESS 
OC BC 4 0127 450 CLRB BUF (A 3: INITIALIZE COUNT FOR READ STRING 
50 Q0000000'EF 7D Q12A 451 MOVa SQ0SEO_CRDESC .RO : GET COMMAND STRING DESCRIPTOR 
0 »v5 131 re TSTL R ; IS THERE ANY COMMAND STRING 
—E 19 0133 45 BLSS 50$ : NO, ALREADY USED IT 
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RMSCONIO = RMS INPUT/OUTPUT MODULE 15S p= 1984 33: 59 34 AX/VMS Macro v04-00 
v06 BOOSREADPROMPT = Prompt and read input s 4-SEP-1984 7 Yeoors sre RMSCONIO.MAR; 1 
16 14 135 454 GTR 408 : YES, USE IT AS RECORD 
1 455 GET  (R2) > GET A RECORD 
0150 €8 149 4 6 BLBS RO,208 : SUCCESS 
4 0143 4 RET + RETURN ERROR STATUS 
51 22 a2 ‘ 144 & 8 20$: MOVZWL RAB $w RSZ(R2), R1 : GET SIZE OF R 
Oc ec 5 1468 45 CVTWB = R1,aBOF(A : RETURN SIZE OF RECORD 
4 014C 460 308: RET + RETURN 
3 oO aC 14D 461 40$:  MOVL BUF (AP) :R3 : GET BUFFER ADDRESS 
83 20 131 46¢ CVTWB RO, ¢ : SET COUNT FOR BUFFER 
63 i 154 46 MOVC RO, (Rid (R3) : COPY COMMAND STRING 
61 DO 0158 464 MOVL *R : SET SUCCESS STATUS 
00000000' P 1 cE 1 465 MINEGL #1 ,B00$GQ__CMDESC + MARK AS USED 
50 00000000°8F 00 0163 467 50$:  MOVL = #RMS$_EOF,RO + GIVE END OF FILE STATUS 
04 O16A 468 RET + AND RETU 
0168 469 NOREAD: : 
52. 000002cB’EF 9 0168 470 MOVAB RIO_OUTRAB,R2 : GET ADDRESS OF OUTPUT RAB 
48 OOOOOIF2"EF £8 0172 471 BLBS § OUTP_OPEN, 10$ : BR IF FILE ALREADY OPEN 
00000273"EF 94 0179 47g CLRB NAMSE ESL#RIO_OUTNAM ; ZERO EXPANDED NAME LENGTH 
O17F 47 SCREATE RIO OOTFAB : CREATE TYPING F 
44 50 €9 o18C 474 BLBC —sRO, : BR IF OPEN FAILED 
00010000 8F CA O18F 476 BICL  #BOOCMDSM_TERMINAL,- 
00000000' ‘EF 0195 477 BOOSGL_CMBOPT : ASSUME NOT A TERMINAL DEVICE 
00000000' E1 O19A 478 BBC #DEVSV~TRM, = 
00000258 'EF 0O1A0 «479 R1O_OUTFAB+FABSL_DEV,- 
0B 01A5 480 ; BRANCH IF NOT 
00010000 8F C8 O1A6 481 BISL  #BOOCMDSM_TERMINAL,- 
00000000" EF O1AC 48¢ BOO$GL_CMBOPT ; SET AS A TERMINAL DEVICE 
0181 484 S$: SCONNECT (R2) : CONNECT TO OUTPUT STREAM 
QOO001F2°EF 01 90 OIBA 485 MOVB ‘#1, OUTP_OPEN : MARK OUTPUT STREAM OPEN 
28 A204 AC DO O1C1 486 10$: MOVL PROMPT (Koo RABSL _RBF (R2): ser OUTPUT BUFFER 
22 a2. 57) = BO sCO01C6)=Ss 487 MOVW  R7,RABSW_RSZ(R2)~ : AND SIZE 
O1CA 488 $PUT — (R2) : Paint tine 
04 0103 489 208: RET : RETU 


ano 
-O 


00000400°EF 
16 A& i 


58 00000400°EF 
16 AB «01 


34 A 


8 67 
2C AB (04 A? 


30 AS 000001D7'EF 
35 A8 
50 


00000000° EF 
000003 


58 


58 
00000450°EF — O00001E2" a4 
000004355 °EF 
58 


= RMS_INPUT/OUTPUT MODULE 
BOOSFILOPEN = Routine to open 


15-SEP-1984 23:59: AX/VMS Macro v04-00 
input file pan et} 33:33:55 Yeoors sre RMSCONIO.MAR; 1 


BOOSFILOPEN = Routine to open input file 


ters: 
ddress of file name descriptor 


Completion status 


1046 4491 ~SBTTL 
104 138 3 
104 495; Input Parone 
1046 494; A 
1046 495; Cutout pevegevers 
104 $38 : + 
104 497; RB - R 
104 $38 3 
104 49 
104 230 BOOSF ILOPENW: : 
9E 0104 1 MOVAB 
88 p108 8 
11 ODF BRB 
O1E1 04 
01E1 505 BOOSEXEOPEN:: 
9E O1E1 208 MOVAB 
90 OIE 50 MOVB 
ae 508 
1F 509 BOOSFILOPEN:: 
9E O1F 510 MOVAB 
8A OFA 511 
O1FE 218 
O1FE 513 FILOPEN: 
90 O1FE 514 MOVB 
dO 0308 515 MOVL 
020 516 $CLOSE 
0210 517 SOPEN 
9E 0219 518 MOVAB 
90 0221 519 MOVB 
8 0 $3 520 BLBS 
0 0228 2s) BSBW 
43 0228 5 ¢ MNEGL 
05 O22 5 RSB 
DE bs¢e 524 10$: MOVAL 
90 85 A 525 MOVB 
0240 258 
9E 0245 2§ MOVAB 
024C 528 SCONNE 
DO 0255 263 MOVL 
05 0258 530 
0259 531 


AB address 
; Open file for reeds and writes 
PRM Get address of FA 
eragsn Put, Pass. FAC(RB): Set PUT bit 
s en with default SYSSSYSTEM: .EXE 
EXEDEF ,PRM_INFAB+FABSL_DNA 
#EXEDEFSIZ>PRM_INFAB+FABSB_DNS 
: Open file for read only 
FRM_INFAB,R8 Get address of FA 
#FABSM_PUT,FABSB_FAC(R8); Clear PUT bit 
(R7) ,FABSB_FNS(R8) ; Set size of file name 
4 (R75 ,FABSC_FNAC(RB) ; and address of name string 
FAB=(RB) ; Close if open 
FAB=(R8) : Open file for read 
PRMDEF ,F ABSL_DNA(R8) ; Go back to vaunal default 
#PRMDEF S12, FABSB_DNS(R8) 
RO,10$ ; Continue if successful 
PUTERROR ; Output error message 
2,k0 ; Return failure 
RSLFNM,BOOSGL FILEADDR 3; Set expanded file address 
R10_] NPNAMSNARSB_R Sh. 3 
BOOSGB_FILELEN 3; Set expanded file Length 
PRM_IN AB ; Get RAB address 
CT RAB=(R8) ; Connect record stream 
#1,R8 ; Return starting virtual block 
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v04 BOOSUFOOPEN - Routine to open input file 4=SEP-1984 23:05:27 ([BOOTS.SRCJRMSCONIO.MAR;1 


| ; -SBTTL BOOSUFOOPEN = Routine to open input file for user access 
9 5 ; Input Pereneters: 
9 $ : R? = Address of file name descriptor 
9 ; Output Parameters: 
9 3 ; RO = Completion status 
9 : R1 = Channel 
$e: 
59 4g BOOSUF OOPEN: : : Open file for read only 
58 QO0000400°EF 9€ 59 54 MOVAB = PRM_INFAB,R8 ; Get address of FAB 
30 A8 Oppenice’ er 9 Ft 44 MOVAB EXEDEF FABSL DNA(R8) ; Set default name string to 
A8 fF 9 6 45 MOVB #EXEDEFSIZ, ABSB_DNS(R8); SYSSSYSTEM: .EXE 
16 AB 01 8A § r¢] BICB FABS ah Matte ttt He Clear PUT bit 
04 AB 00020000 8F c8 4 BISL #FABSM_UFO,FABSL_FOP(R8S); UFO 
34 AB 67 90 027 48 vB 7) ,FABSB_FNS(RB) : Set size of file name 
2C AB «204 A?) «OO SCO 27C 49 Vi (R7§ ABSC_FNA(R8) 3; and address of name string 
0 Hi 50 SCLOSE FAB=(R8) : Close if open 
A 51 OPEN FAB=(R8) 3; Open file for read 
30 AB O00001D7"EF 9E 0293 26 MOVAB PRMDEF,FABSL_DNA(R8) ; Go back to usual default 
35 a8 0B «O90 «(029855 MOVB #PRMDEFSIZ,FABSB_DNS(RB) 
07 50 5 8 oF 54 BLBS R ; Continue if successful 
Fp5B" 30 Ae 55 BSBW PUTERROR : Output error message 
50 02 cf 8 a3 228 > #2,R0 3; Return failure 
04 AB 00020000 B&F A Bsay 558 108: BICL #FABSM_UFO,FABSL_FOP(R8); Next caller doesn't want UFO 
51 OC AS 3C 0281 359 MOVZWL FABSL_STV(R8),R1 : Channel 
05 0285 60 RSB 
0286 561 


K 11 
vOa=000" BOOSFILCLOSE = Routine to close currentl ‘s-sEP-I9be S3:05:57 LadovsssmeSaAstontoeman:1 29° {, 


Bs ? -SBTTL BOOSFILCLOSE - Routine to close currently open file 
+4 5 Input poreneterss 

B6 8s Output Parameters: 

8 o8 : Re - Completion status 

8 8 : R8& = FAB address 

Be 9 , 

B6 i BOOSF ILCLOSE:: : Open file for reads and writes 
58 O0O000400'EF 9E B6 7 MOVAB PRM_INFAB,R8 3; Get address of FAB 

BD 74 BeL OSE FAB=(RB) 3 : Close if open 

05 C 75 RSB 
02C 576 
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RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 23:59:24 VAX/VMS Macro Vv04-00 Page 14 
vO4 BOOSREADFILE = Read parameter file 4-SEP-1984 33:03:59 BOOTS.SRCJRMSCONIO.MAR;1 . (1) 
cf f -SBTTL BOOSREADFILE - Read parameter file 
‘f 0 ; Input Parameters: 
34 1; ns Buffer address 
cf 5 ; - Count of pages to read 
C7 5 : Output Parameters: 
ef gi 3 RO - Completion status 
C7 8 Boosre Aor Me: : 
51 0000 0300. F 43 C7 9 VAB_  PRM_INRA oR 3; Get address of input RAB 
20 al. F 8B CE 0 Rove #512, RABSW_USZ(R1) : Set record size 
$ 4 D 91 MOVL R »RABSL_ UBF (R1) 3; Set buffer edarese 
$ Ai D D8 38 MOVL R8,RABSL_BKT(R1) ; Set VBN to read 
De 9 SREAD RAB=(R1)~ ; 
1150 €8 E 94 BLBS RO,10$ ; 
00000000'8F 5 D1 €8 95 CMPL R ; #RMSS_EOF 3 Is it end of file? 
1 13 EF 9 BEQL 3; Branch if yes 
50 007€8102 8F DO O2F1 9 MOVL #SYSG$_INVPARFIL,RO : Invalid _paraneter file 
05 O2F8 98 RSB ; andre 
56 0200 C6 9E O2F9 99 10$: MOVAB 512(R6),R6 3 * they bast for pointer 
58 44 O2FE 600 INCL 3; and block number 
459 «= F5 COO 6° 601 SOBGTR R9,BOOSREADFILE 3; Read all required blocks 
50 01 3C 030 o0e 20$: MOVZWL #1,RO0 3; Return success 
05 0306 60 RSB 3 


RMSCONIO = RMS INPUT/OUTPUT 15-SEP-1984 :59:24 VAX/VMS Macro v04-00 Pa 15 
v04 BOOSWRITEFILE = Write oe bhaeke to file 27860-1383 33:38:35 BOOTS.SRCJRMSCONIO.MAR;1 tf (1) 
q 5 ; -SBTTL BOOSWRITEFILE = Write blocks to file 
7 $ : Input Parameters: 
4 oS : R6 - eer address 
q e16 3 - Count of pages to write 
07 ig : Output Parameters: 
44 ei? : 3 RO - Completion status 
$5 615 BOOSWRITEFILE:: 
51 ee ‘au 43 ti 218 MOVAB PRM_INRAB,R1 ; Use input —. for output too 
bo Al ¢0 B F 61 MOVW #512, RABSW_RSZ(R1) 3: Set block si 
DO 031 618 MOVL  R6,RABSL_RBF(R1) 3 Set butter address 
$ vy) 18 61 MOVL R8,RABSL_BKT(R1) ; Set VBN to write 
i 620 SWRITE RA =(R1) 3; Do it! 
2 50 €9 03 621 LBC 20$ 3 ives 
56 0200 g 9E ; 8 6 ; MOVAB BOs eRe) ORG 3; Advance buffer pointer 
44 dD 6 INCL 3 and block number 
05 59—CééF 83 F ? : SOBGTR R9,BOOSWRITEFILE ; Repeat 
51 Q0000400°EF 9E 03 5 626 MOVAB PRM_INFAB,R1 ; Get address of FAB 
oo ee 0339 6 f SCLOSE FAB = (RI) : Close file 
i : Error 
50 01 3s O35 ? 4 ee #1,R0 ; Return success 
0349 631 
FCB4*' 30 0349 o32 208: BSBW PUTERROR ; Output error message 
50 02 CE O34C 63 MNEGL #2,R0 ; Set error status 
05 O34F 634 RSB 


RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 :59:24 VAX/VMS Macro v04-00 Page 
v04 BOOSWRIFILE = Routine to write parameter 4-SEP-1984 : 08:59 fBoors. sae RMSCONIO.MAR; 1 . 
° § -SBTTL BOOSWRIFILE = Routine to write parameter file 
6 8 3; Input pargneters: 
6 3 PASL_TOKENCNT(AP) = SIZE OF FILE NAME 
oY ; TPASL_TOKENPTR(AP) = ADDRESS OF FILE NAME 
3 o¢6 ; Output Parameters: 
5 7 : RO = Completion status code 
3 645 BOOSWRTFILE:: | : 
O3FC 035 646 .WORD “M<R2,R3,84,R5,R6,R7,RB,RI> : 
57 00900494" EF 9 2 64 MOVAB PRM _OUTFAB,R7 : Get FAB address 
CA 14 AC D 48 MOVL TPASL_TOKENPTR(AP) ,FABSL_FNA(R7); Set into FAB 
4 A? 10 AC 90 2 649 MOVB TPASL_TOKENCNT (AP) ,FABSB_FNS(R7); and set size of name 
59 OOO00000"EF 9E 036 650 MOVAB BOOSA_PRMBLK,R 3 Get base of parameter blocks 
58 O0000000°EF  9€ A 631 MOVAB BOO$SAB_PRMBUF ,RB ; And set base of buffer 
371 638 3; Set startup filename 
68 eoosoeee"et 20 28 $371 655 MOVC3 #32,EXESGT_STARTUP,(R8) ; Copy name of startup file 
0 58 vO 0379 656 MOVL RO 3; Save base of buffer 
58 20 «co 037¢~=«6657 ADDL #32,R8 : Advance buffer pointer 
O37F 658 
SSPE 30. | Loop through all t 
3 Loop through all parameters 
O37F 661 ; 
037F 666 
69 D5 O37F 663 5$: TSTL (R9) : Check for end of buffer 
4D 13 0381 664 BEQL 8$ : Yes, write file 
88 16A9 7D 0383 665 MOVQ PRMST_NAME(R9) , (RB) + 3; Copy name 
88 16 A9 7D 0387 666 MOVQ $PRMST"NAME+8(R9),(R8)+ |: string to buffer 
1F 10 a9 = 10 1 0388 66 BBC #PRMST_ASCII PRMS$L_FLAGS(R9) .6$:; Branch if not an ascii parameter 
51 1409 9A 0390 668 MOVZBL PRM$B_S1IZE(R9),R1 : Get size in bits 
51 51 #€D 8F 78 0394 669 ASHL - P ; Get size in bytes 
7E «51 «403 «C1 «(0399 «670 ADDL3 #3,R1,-(SP) : Round size up to next longword boundary 
6 03 CA 039D 671 BICL2 #3,(SP) ; 
20 00 B89 51 2c Saag O76 MovCc R1,@PRMSL_ADDR(R9) ,#*A/ /,-; Put value in buffer 
68 6€ O3A5 67 SP), (RB) ; 
58 : CO O3A7 674 ADDL2 (SP)+,R 3; Advance buffer pointer 
59 3 £0 O3AA 673 ADDL #PRMSC_LENGTH,R9 : Next parameter 
51 15 AQ QA O3A ers 6$: MOVZBL PRMS$B_POS(R9),R1 3; Get positiun 
1409 51 EE 038 678 EXTV_-R1,PRA$B_SIZE(R9),- 
52 00 89 038 67 @PRMSL_ADDR(RO) ,Re ; Extract value 
0c E1 B 680 BBC PRMESV wt - 
03 10 Ad 038 ey PRMSL_FLA §(R9) ,7$ : Branch if no negation needed 
52 52 CE 038 6 ; MNEGL R2, : Convert to negative 
52 52 14A9 OO EF Q3 6835 7$: EXTZV #0, PRMSB_SIZE(R9),R2,R2 ; Convert value to unsigned form 
88 35 dO 684 MOVL R2,(R8B)+ :; Put value in buffer 
59 CO 685 ADDL #PRMSC_LENGTH,R9 ; Next parameter 
AF 11 e $ BRB 5$ 3 
8 D4 688 8$: CLAL (R8)+ : Mark end of buffer 
58 C2 689 SUBL RO,R8 3; Size of buffer 
58 OFF C 3 690 MOVAB 51{4(R8),R8 3; Round to page bound 
58 58 F7 a 7 691 ASHL #-9,R 3; Compute file size in pages 
10 A7 8 00 692 MOVL R8,f ABSL_ALQ(R7) ; Set size of file to create 


- 
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RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 159: 4 yenlves Macro v04-00 Page 17 | § 
yOLs000 BOOSWRIFILE = Routine to write parameter 4-SEP-1984 33:32 :27 Yeoors. SRC JRMSCONIO.MAR; 1 . (2) : 
E3 693 SCREATE FAB=(R7) ; Create and open file 
08 a Fe EC 694 BLBS RO, : Continue if cuceess 
50 OO7CBOFA 8F BY ef 244 MOVL #SYSGS_ CREPARFIL,RO : Set message 
FS £99 10$: SCONNECT RAB=PRM puTone : Connect output RAB 
55 QOO004E4'EF 9E 04046 698 MOVAB RM_OUTRAB,R Get base address of output RAB 
28 AS 00000000 ' EF 9E rh 44 MOVAB BO OO$SAB PRMBUF , RABSL_RBF ( (5) Set base of buffer 
4) 0 208: $PUT AB= ; Write one block 
28 AS 00000200 of 3 41C 701 ADOL : 24 RABSL_RBF (R5) ; Advance buffer pointer 
ec 58 SOF 424 7 ; SOBGTR : Do them all 
0427 7 SCLOSE Fabs a7) : 
04 0430 704 RET 3 
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00000498"EF 02000000 8F 
QOOOOGES"EF 02 


FFO6 CF 6C 
00000498"EF 02000000 8F 


QOOOO4ES*EF 02 


(ee 


- RMS INPUT/OUTPUT yes 15-SEP-1984 $3:32'58 AX/VMS Macro Vv04-00 Page 8 
BOOSWRISYSPARFILE = Routine to write the 4-SEP-1984 :05:27 (CBOOTS.SRCJRMSCONIO.MAR; 1 (3) 
r ! 1p -SBTTL BOOSWRTSYSPARFILE = Routine to write the system parameter file 

431 f : : Input parameters: 
431 09 ; PASL_TOKENCNT(AP) = SIZE OF FILE NAME 
ri ! oy $ TPASL_TOKENPTR(AP) = ADDRESS OF FILE NAME 
43) at : Output Parameters: 
431 713; RO = Completion status code 
Hy fe 
0000 0431 £18 Entry BOOSWRTISYSPARFILE,“M<> 
c8 bf ae BISL #F ABSM CIF ,FABSL_FOP+= ; Set the create if flag in the fab 
43E £18 PRM ; we don't want multiple versions of this .P. 
c8 Beas 71 BISL #RABSM_TPT,RABSL_ROP+= ; Set the update flag in the rab we are 
Ree 720 3 overwriting an as file 
FA 0445 721 CALLG (APY,BOOSWRTFILE ; Call routine to write the .PAR file 
CA pees 4 ¢ BICL sr apse CIF ,FABSL_FOP+= ; Clear the create if flag in the fab 
CA 0455 724 BICL  #RABSM_TPT,RABSL_ROP+- ; Clear the update flag in the rab 
045¢ 725 PRM_OUTRAB ; 
04 045C 726 RET 3; Return 


RMSCONIO 
v04-0 


Sea A cates eo 


04 A7 


57 cones & 


0 
50 00000000" 8F 


55 0000062C ‘EF 
36 000005(4'EF 
00000000" EF 4 
56 Q00005A4 "EF 
QOOOOS7C*EF 56 
QOOOOOO00"EF 11 
75 

00020000 8F 

08 A6 =20 

5D 50 

51 55 10 A6 
35 

4B 

10 A651 

38 50 

54 O00005E4'EF 
25 50 

38 AG O55 

15 50 


44 50 
50 007CA033 of 
0094 
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CREATE SWAP OR PAGING FI ‘o-SEPalon4 53:05,59 


AX/VMS Macro v04-00 Page 3 


BOOSSWPCREATE - BOOTS. SRCJRMSCONIO.MAR; 1 ) 
490 g .. «SBTTL BOOSSWPCREATE - CREATE SWAP OR PAGING FILE 
45D 730 ; *FUNCTIONA DESCRIPTION: 
45D 731 3 BOOSCREATE IS CALLED TO IMPLEMENT THE CREATE COMMAND IN THE SYSGEN 
4 p f gi : UTILITY. THIS COMMAND IS USED TO CREATE DUMP,SWAP AND PAGING FILES. 
450 734 : INPUT PARAMETERS: 
490 f 5; BOOSGL_SIZE = SIZE OF FILE TO CREATE IN BLOCKS 
0450 7 $i ; OUTPUT PARAMETERS: 
94D 038 i ; RO = COMPLETION STATUS CODE 
OOF C B43 £40 "ENTRY BOOSCREATE “M<R2,R3,R4,R5,R6,R7> |; SAVE R2=R7 
D Stet 4g MOVAL SWAPE HCE AB R? 3 GET FAB ADDRESS 
95 0466 74 TSTB. FABSB_FNS(R7) ; SEE IF FILE WAS SPECIFIED 
12 0469 744 BNEQ BRANCH IF I 
D0 0468 745 MOVL § #<<RMS$_FNM> & “C<STSS$M_ SEVERITY>>, RO ; SET WARNING 
04 04 746 RET 3 RETU 
0473 747 
DO 0473 748 10$: ##MOVL $$ BOOSGL_SIZE,R ; SET DESIRED SIZE 
DE 047A 749 MOVAL SWAPALCXABNC, 26 : GET ADDRESS OF NONCONTIG ALLOCATION XAB 
E1 0481 750 BC WBOOCMD$V_CONTIG, - 
0488 751 OO$GL_CMBOPT, 20$ : BR IF THAT'S WHAT'S WANTED 
DE 0489 138 MOVAL Sw LCXAB,R : GET ADDRESS OF CONTIG ALLOCATION XAB 
DO 0490 753 208:  MOVL SWAPEHCKAB+XABSL _NXT ; SET ADDRESS OF ALLOCATION XAB 
EO 0497 754 BBS PBORCAD SY c NTIG 
049¢ £35 BOOSGL OeMBOPT. CREATE : BR IF CONTIGUOUS SPECIFIED 
peor ete ; Try to open file to see if it exists 
CA 049F 759 BICL  #FABSM_UFO,FABSL_FOP(R7); CLEAR USER FILE OPEN 
04A7 760 SOPEN FAB= PEN 
C8 0480 761 BISL  #XABSM_CBT,XABSB_ AOP(R6): SET FOR CONTIGUOUS BEST TRY ALLOCATION 
E9 0484 £66 BLBC RO, CREATE ; IF ERROR, CREATE FILE 
0487 763; 
0487 764 ; Extend file 
0487 765; 
GS 0487 766 SUBL3 XABSL_ALQ(R6),R5,R1 : DIFF : 
13 048C 767 EQL ©: 30 : IF THE SAE, THEN NOTHING TO DO 
19 O4BE 768 BLSS 508 : IF LESS THEN NEW FILE 
D0 04C0 769 VL R1, XABSL_ALQ(R6) 
4C4 770 SEXTEND FAB=(R7) 
E9 04CD 771 LBC. —_- RO, 40 
400 108 
9€ 0400 77 MOVAB  SWAP_RAB,R4 ; RAB ADDRESS 
4D? 774 SCONNECT RAB=(R4S 
E9 0460 775 BLBC 
DO 04E 176 MOVL RS. RABSL _BKT(R4) : SET LENGTH 
4E7 77 SWRITE RAB=(R4)~ : FORCE EOF TO SIZE SPECIFIED 
e9 ar 178 BLBC 40 : BRANCH ON ERROR 
4F 779 30$:  $CLOSE FAB=(R7) : CLOSE FILE 
E9 O4FC 780 BLBC ,40$ : EXIT IF ERROR 
DO O4FF 781 MOVL #SYSG$_EXTENDED,RO : SET STATUS 
11 206 7 : BRB CREATE SIGNAL : OK TO SIGNAL 
31 0508 , ; 40$:  BRW CREATE-ERROR > EXIT 


——e 
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= RMS INPUT/OUTPUT MODUL 15=SEP=1984 23:59:24 VAX/VMS Macro V04-00 Page 2 
BOOSSWPCREATE = CREATE SWAP OR PAGING FI 44-SEP-1984 33:00:59 teoors sre RMSCONIO.MAR; 1 . 23 
508 ? 50$: $CLOSE FAB=(R7) 
1006 55 «OD 314 787 CREATE: MOVL  R5,XABSL_ALQ(R6) : SET ALLOCATION REQUEST SIZE 
04 A? 00020000 FF 08 18 7 : ISL _ #FABSM_UFO,FABSL_FOP(R7); SET USER FILE OPEN, SO STV WILL BE CHANNEL 
5 7 CREATE FAB=(R7) : OPEN AND CREATE FILE 
1050 €8 3 9 f 0 LBS —_—-RO, 10 : CONTINUE IF NO ERROR 
OC A? OOD C 1 USH FABSL TV(R7) : SET FAILURE STATUS VAL 
7E 50 O07 CB O5eF 198 BICL3 #STS$M_SEVERITY,RO,-(SP): SET FAILURE STATUS, CONVERTING TO WARNING 
00000000' GF 02 FB 0533 «79 ALLS #2,G°LTBSSIGNAL : SIGNAL THE FAILURE 
60 11 3 A 19h BRB CREATE_EXIT : 
53C «= 796 108:  SQIOW_S CHAN=FABSL_STV(R7),- ; ZERO FIRST LONGWORDS IN FILE 
s3¢ 79 FUNC=#10$_QRITEVBLK,- ; WRITE VIRUAL BLOCK 
53¢ 6798 PI=ZEROES;- + ADDRESS OF ZEROES 
053¢ ~=— 799 P2=#512,- : ONE PAGE 
053¢ =. 800 P3=#1 : FIRST BLOCK OF FILE 
0564 801 SDASSGN_S CHAN=FABSL_STV(R7) t DEASSIGN CHANNEL 
20 50 €9 O56F 80 BLBC “RO,CREATE_ERROR 
50 00001070 8F D0 0578 803 MOVL  § #SHRS_CREATED,RO : RETURN SUCCESS 
0579 805 CREATE_SIGNAL: 
0579 806 
Q00000B0'EF 9F 0579 807 PUSHAB RSLFNM ; SET FILE NAME ADDRESS 
7E QO00035F°EF 9A 057F 808 MOVZBL RIO_INPNAM+NAMSB_RSL,-(SP) ; SET FILE NAME SIZE 
51 SE DO 0586 809 MOVL SP,R1 : GET ADDRESS OF DESCRIPTOR 
51 DD 0589 810 PUSHL 1 : SET FILE NAME DESCRIPTOR ADDRESS 
01 oD 0588 811 PUSHL #1 + SET FAO COUNT 
007c0003 8F C9 058D Big BISL3 #<SYSG$_FACILITY@16!STS$K_INFO> - 
— 50 0593 81 ,RO,= : "MAKE SYSGEN MESSAGE 
00000000'GF 03 FB 0595 B14 CALLS #3,G*LIBSSIGNAL : SIGNAL THE ACTION JUST TAKEN 
. 059C 816 CREATE_EXIT: 
50 0 DO 0O59C 817 MOVL #1,R0 3 Set sucess 
059F 818 
059F 819 CREATE_ERROR: 
34 AZ 94 059F 820 CLRB. ss FABS$B_FNS(R7) : CLEAR FILE NAME LENGTH 
2c A? O52 821 CLRL = FABSL-FNA(R7) : AND FILE NAME ADDRESS 
0% Gene 898 2: 


—————__—--- 
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~SBTTL INSTALL PAGE OR SWAP FILE 


ional Description: 


BOOSINSTALL is getsee to install a second page or swap file. The 
specified file is opened, the window pointer is removed from the 
associated channel control block and moved to the page file control 
ee oe The PFL address is loaded into the page file control block 
vector. 


Parameters: 
SWAPFHCFAB = Specified file name fields filled in. 


SWAPFHCXAB = File size is stored in XA 
BOOSGL_CMDOPT <BOOCMDSV_PAGEFILE> = Set if page file installation 


Output Parameters: 


None 
cit Output: 
A page file control block describing the designated file is created 


and loaded into the page file control block vector. (The details 
can be found in the module header in INITPGFIL.) 


Completion Status: 


RO - Completion status 


ALL status returns (success and failure codes) are returned 
from kernel mode by INITPAGSWPFIL (which gets its status 
from either BOOSING TPAGFIL or BOOSINITSWPFIL). 


ORD “M<R2,R3,R4,R5,R6,R7> =; Entry mask 
MOVAL SWAPFHCFAB,R7 


Get base of FAB 
BISL #FABSM_UFO,FABSL_FOP(R7); SET USER FILE OPEN, SO STV WILL BE CHANNEL | 


; Open file for install 
; Continue if no error 
EXPFNM ; Set file name address 
MOVZBL RIO_INPNAM*+NAMSB_ESL,-(SP) ; Set file name size 
3; Get address of descriptor 


SOPEN FAB=(R7) 
BL 


al!) 

PUSHL FABSL_STV(R7) : Set status valu 

PUSHL RO 3; Set status 

PUSHL R11 3; Set file name descriptor address 

PUSHL #1 ; Set FAO count 

PUSHL gt OPENIN! <SYSGS$_FACILITY@16> ; Set message status 

CALLS #5,G*CIBSSIGNAL ; Signal the failure 

BRB 30$ ; Return successfully because 
; error already signalled 

SCMKRNL_S AB] TPAGSUPF It 

BLBS RO, 408% ; Branch if success 


an 
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. INSTALL PAGE OR SWAP FIL 4-SEP-1 198¢ 33: 33 37 tBoors. SRCIRMSCONIO.MAR; 1 hot 8) 


0 odD FD 25$: PUSHL ; Set failure status 
ee if FB aft LL RY * LIBSSIGNAL ; Signal the failure 
000' 8F zt 6 6 5 38: MOVZWL #S5$_NORMAL ,RO : Error already signalled 
60C 
60C g 4 roo g BBC #BOOCMDSV_PAGEF ILE ,BOOSGL_CMDOPT, 338 3 oe else to do if 
60C 8 See JNLee BBS #BOOCMDSV_NOCHKPNT, /BOOSGL - St we : Nochec pores - invali 
60C 9 SeeJNLee PUSHL #1 : Ful checkpoint processing 
60C 90 ;**JNL ee PUSHL ° OSGL_ INDEX : Me fi le index 
bebe 91 ;**JNLee CALLS #3. CAKSINSPGF IL : Protect checkpoints and init the f 
60C 35 See JNLee S$ 3 Success 
be C 93 s;*eJNLee PUSHL 
60C 94 ;**JNLee Push CLNUPPAGF IL ; Clean up failed installation 
060C 95 ;e*JNLee POPL RO 
060C 36 s**JNLe® 508: 
Bone 97 ;*eJNLe® ; 
60C 898 :**JNL** 60$: PUSHL BOOSGL_INDEX : Page tile index 
060C 99 ;*eJNLee CALLS #1,CHKSINVPGFL : Invalidate any saved checkpoints 
060C 00 ;**JNL** BLBC RO,25$ : Go signal the error 
060C 901 ;**JNL** RET 
060C 902 ; 
060C 903 ; Install a second page or swap file 
060C 904 ; 
060C 905 
060C 906 INITPAGSWPFIL: 
0004 060C 907 WORD “M<R2> : Entry mask 
00000630°EF ODF O60E 908 PUSHAL BOOSGL_INDEX : Returned PFL index 
7E D& 0614 909 CLRL =(SP) ~ : Default MAXVBN pareneter to default 
52 O00000528'EF DE 0616 910 MOVAL SWAPFHCFAB,R2 3; Get base of FAB 
52. OC A2 CE 0610 911 MNEGL FABS$L_STV(R2),R2 ; Get cheanet number and invert 
52 00000000°9F CO 0621 318 ADDL @*CTLSGL_CCBBASE.R2 ; Compute base of channel 
4 A2 DD 0628 91 PUSH CCBSL_WIND(R2) : Get wtetes pointer address 
7E 00000588 "EF 01 C3 bo¢8 914 SUBL #1, SWAPFHCXAB+XABSL_EBK =(SP) ; t size of file 
09 00000000'EF 04 EO 06 915 BBS #BOOCMDSV PAGEF ILE BOOSGL _ emobr® 10s Br if hs pagefile 
00000000'GF 04 FB 0638 916 CALLS #4,G*BOOSINITSWPFIL : “Call eternal procedure 
07. «+11 Reee a4 108 BRB 20 3; Join common completion code 
0644 919 ;*eJNLee BBS #BOOCMDSV_NOCHKPNT, BOOSGL_ CMDOPT, 158 ; Is it marked for no c 
0644 920 ;**JNL** Ove #1,11(SP)~ “No - don't mark file available yet 
00000000'GF 04 FB 0644 921 15$: CALLS 4&4, +G°BOOSIN ITPAGFIL : Call external procedure | 
23 50 €9 0648 9 ¢ 20$: C 0,30$ : Skip next if erro 
50 04 A2 D0 064 9 VL CCBSL_WIND(R2) ,RO 3; Disconnect file tren this process by 
00000000"EF 16 0652 924 JSB G$RET_BYT QUOTA : _ refund byte quota & clear PID in WCB 
52 4 A DO $63 925 MOVL CCBSL_WIND(R2) .R2 ; Get window control block address 
EA B6 065C 9 § INCW WCBSW~REFCNT(R2) : acany ve ref of ins so WCB sticks around 
52 00000528'EF DE O065F 9 OVAL SWAPFACFAB,R2 ; Get bas 
0666 928 SDASSGN_S CHAN = FABSL_STV(R2) ; Deassion ky ~ ane? to unlock the file 
04 0671 929 30$: 
aE 
367 2 gi 3 Clean up after a page file installation has failed 
672 934 ELNUPPAGFIL: 
67 935 . WOR “M<R3,R4,R5> 
53 OC A7 ce 674 936 MNEGL FABSL_STV(R7),R3 ; Get channel number and invert 
53 Q00000000'°9F C 678 937 ADDL @*CTLSGL_CCBBASE ,R3 ; Compute base of channe 
54 00000630'EF DO 067F 938 MOVL BOOSGL STRDEX Ra ; Page file index 
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v04- INSTALL PAGE OR SWAP FILE 46-SEP-1984 BOOTS.SRCJRMSCONIO.MAR; 1 
ppongoce FF ss 4 686 +44 pov @MMGSGL_PAGSWPVCER4],R5 age file contret block 
AS OC AS DO 06 40 OVL PFLSL WINDOW(RS) 4668 t "inp ) ; Put window back 
69 941 SDASSGN, $ CHAR = FABSL_Sfv(R7) Deassi gn the channel 
rH) 2g SETI : Go to syne h and lock pages 
00000000" FF44 wees adh 43 7 4 : corn SGL_NULLPFL, aMMGSGL_ PAGSWPVCLR4J ree the vector slot 
p 1 964 7 Address of PEL block 
3} BA C 0684 945 MOVZWL PFLSW_ SIZE(R5),R1 3 PFL sine 
1 4 AS CO 0688 oe8 ADDL2 PFLSL “BITMAPSI2(R5), R1 ; Add the bitmap 
00000000'GF 16 068 94 J G*EXESDEANONPGDS1Z 3; Deallocate it Patt 
6C 948 SETIPL #0 
04 06C 949 RET 
6C6 950; 
0008 06€6 951 10$:  .wORD IPL$_SYNCH 
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v04- INSTALL/CREATE ACTION ROUTINES 4-SEP-1984 :05: BOOTS.SRCJRMSCONIO.MAR; 1 (3) 
of 827 ~SBTTL INSTALL/CREATE ACTION ROUTINES 
6C 922 BOOSSETPGFL:: ; SET PAGEFILE OPTION 
oo 6C 2$ WORD : 
00 00000000°EF 04 F 6cCA 95 BBSS #BOOCMDSV_PAGEF ILE ,BOOSGL_CMDOPT,10$ 
4 «3 928 10$: RET : 
6D 960 BOOSCRENCONTIG:: 3 CREATE NON-CONTIGUOUS FILE 
000 60 961 WORD 
00000000 ‘EF 0 C 60 96 BISL #BOOCMDSM_NONCONTIG,BOOSGL_CMDOPT ; SET OPTION BIT 
00000000 * EF 00020000 8F fA pees oer Beye #BOOCMDSM~CONTIG,BOOSGL_CMBOPT ; CLEAR OPTION BIT 
6E8 965 ‘ 
Ose 966 BOOSCRECONTIG:: ; CREATE CONTIGUOUS FILE 
0000 O6€8 967 -WORD 0 
00000000 EF 20 CA O6EA 968 BICL #BOOCMDSM_NONCONTIG,BOOSGL_CMDOPT ; CLEAR OPTION BIT 
00000000 "EF 00020000 8F C8 O6F1 969 BISL #BOOCMDSM_CONTIG,BOOSGL_CMBOPT ; SET OPTION BIT 
04 O6FC 970 RET 3 
O6FD 971 
O6FD 36 BOOSFILESIZE:: ; SET FILE SIZE 
0000 O6FD 97 -WORD 0 . 
0000062C °EF 1C AC DO O6FF 974 MOVL TPASL_NUMBER(AP) ,BOOSGL_$1ZE ; 
04 0707 «975 RET 3 
4 976 
708 977 BOOSSETFILNAM:: : 
0000 0708 978 -WORD O $ 
51 00000528 °EF 9E O70A 979 MOVAB SWAPFHCFAB,R1 3 
34 Al 10 AC 90 0711 980 MOVB TPASL_TOKENCNT(AP) ,FABSB_FNS(R1) ; SET FILE NAME LENGTH 
2C Al 14 AC 00 0716 981 MOVL TPASL_TOKENPTR(AP) ,FABSL_FNA(R1) ; AND FILE NAME ADDRESS 
04 0718 oa6 RET 5 
071C 98 
071C 984 BOOSNOCHKPNT:: 
0000 071C 985 WORD 0 3 PAGE FILE DOES NOT SUPPORT CHECKPOINT/REST | 
00 00000000'EF 12 E2 O7I1E 986 BBSS #BOOCMDSV_NOCHKPNT ,BOOSGL_CMDOPT, 108 
04 0726 987 10$: RET 
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v04 RMS DEFINITIONS FOR /OUTPUT= QUALIFIER 46-SEP-1984 23:05:27 ([CBOOTS.SRCJIRMSCONIO.MAR;1 (3) 
oF 4 94 -SBTTL RMS DEFINITIONS FOR /OUTPUT= QUALIFIER 
00000638 3 -Psect PAGED_DATA rd,wrt,noexe,quad 
’ 836 ALIGN LONG ~ 
: Oae 3 Output File Data 
$000 63C 44 RIO$GW -OUTLEN: : «WORD 0 7LENGTH OF STRING 
00001 6 997 RIOSAB_OUTBUF : «LONG BUFFER_SIZE sOUTPUT BUFFER 
0000646" 064 338 «LONG RIOSAB_BUFFER 
00000746 1900 RIOSAB_QUFFER: -BLKB BUFFER_SIZE 
re 1001 3 Output Device Data 
746 «1 O : 
toe 1003 .ALIGN LO 
te 1004 RIO_OUTFAB2:: SF AB RAT=CR 
798 1005 RIO_OUTRAB2:: SRAB F AB=R10_OUTFAB2 
070C 1308 RIO_OUTFABS: $F AB RAT= 
beet 1007 RIO_OUTRAB SRAB FAB=R10_OUTFAB3 
08 8 1008 
0870 1009 ; Input File Data 
0870 1010 
00000100 0870 1011 RIOSGL_INBUF_SZ:: -LONG BUFFER_SIZE 
00000974 paee ISi¢ RIOSAB_INBUFFER: : -BLKB BUFFER_SIZE 
0974 iste ; Input Device Data 
0974 1015 
0974 1016 - ALIGN LONG 
0974 1017 RIO_INFAB2:: $FAB FNM=<INFILE:> 
09c4 1018 RI0_ INRAB2 SRAB FAB=R10_INFAB2 
094 1019 UBF =RI0$AB_INBUFFER 
09C4 1020 USZ=RIOS$GL— Be Be * PBF = PROMPT_IN, = 
09C4 1021 ROP=<PMT ,CVT>, PSZ7=8 
20 3E 45 43 49 56 45 44 ti 19 ; PROMPT _ IN: ASCII /DEVICE> / 
09 OA10 1952 INNAM_ SIZE: BYTE INPNAMSZ 
000001C4" ne 196? INNAM_ ADDR: ~LONG INPNAM 
4D 4F 43 2E OA1S 1027 COM: eASCII /.COM/ 
53 49 4C 2E OA19 1028 LIS: ASCII /.LIS/ 


RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 :59:24 VAX/VMS Macro Vv04-00 Pa 
yors000 RMS DEFINITIONS FOR /OUTPUT= QUALIFIER rae tt 9 83:34:55 Yeoots spe RMSCONIO.MAR; 1 ad 2, 
0000 g 4 ! ? -Psect PAGED_CODE rd,nowrt,exe, long 
7e7 (1 : 
4 i ! § : The following are called as TPARSE action routines from SYSBOOCMD 
727, (1035 ° 
0000 : § -ENTRY BOOSINPUT_FILE, “M<> 
14 AC D0 0729 1 MOVL TPASL_TOKENPTR(AP) ,- 
00000A11°EF 7 ‘ 1 INNAM_A ; Save pointer to input file 
10 AC F6 07 1040 CVTLB = =TPASL_TOKENCNT(AP) ,- 
00000A1 §f 734 1041 INNAM ; Save length of file name 
00004000 8F c8 0739 #1 ry BISL #BOOCRDSM_INPUT,- 
00000000 ‘EF of F 136 BOOSGL_CMBOPT : Set flag for /INPUT 
04 re Wee RET 3; Return 
0000 O73 Ho ENTRY BOOSOUTPUT_FILE, “M<> 
14 AC DO 0747 1048 MOVL TPASL_TOKENPTR(AP) ,- 
00000000 ' EF 074A 1049 BOOSGC_FILEADDR 3 Save pointer to output file 
10 AC F6 O74F 1050 CVTLB TPASL_TOKENCNT(AP),- 
seas Orag 1051 BOOSGB_FILELEN ; Save length of file name 
00002000 8F c8 75 1926 BISL #BOOCMBSM_OUTPUT,- 
00000000 ‘EF 075D 105 BOOSGL_CMBOPT : Set flag for /INPUT 
04 0762 1054 RET 3; Return 
0763 1055 
0000 Oree 1926 -ENTRY BOOSRESET_IO, “M<> 
00000778'EF QOOO0A19"EF ODE B76 1058 MOVAL LIS,RIO_OUTFAB2+FABSL_DNA : Set .lis default 
0000077D ‘EF 04 90 faa 1923 MOVB #4,R10_OUTFAB2+FABSB_BNS 3; Set size of .tis 
00000000‘ EF OA 90 0777 1061 MOVB #OUTPNAMSZ ,BOO$GB_FILELEN 3; Set default hengen 
00000000" EF spt teat D O77E 1906 MOVAL OUTPNAM,BOOSGL FICEADDR ; Default output is SYSSOUTPUT 
A10'EF 09 90 0789 106 MOVB  #INPNAMSZ, SIZE : Set default Leng 
00000A11'EF 000001C4 "EF DE 0790 1064 MOVAL INPNAM, INNAM_ADDBR ; Default input is SYSSINPUT 
04 0798 1065 RET 3; Return 
079C 1066 
0000 1435 st ENTRY BOOSRESET_COMMAND, “M<> 
4433 139) 3 Command SHOW/CONFIG/COMMAND_FILE was originally SAVE <file-spec> 
00000778°EF QOOOOA1S‘EF ODE 3443 1071 MOVAL COM,RIO_ OUTFAB2+FABSL_DNA ; Set up RMS default extension 
0000077D'EF 04 90 O7A 19e MOVB #4,R10_ OUTFAB2+FABSB_BNS ; Set up extension size 
00 00000000’ EF 02 Fe 0780 107 BBSS #BOOCMD$V_SAVE ,BOOSGC_CMDOPT,10$ ; Set SAVE command flag 
4 o7B8 Ieee 10$: RET 


| 
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RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP-1984 j 59:34 YAX/ vis Macro V04-00 Page 
v04 RMS DEFINIT FOR /OUTPUT= QUALIFIER  4-SEP=1984 23:05: BOOTS. SRCJRMSCONIO.MAR; 1 
78 3 
ys 3 These routines are called via a BSBW from TPARSE action routines 
789 - 
44 BOOSOPEN_OUTPUT_2:: ; Open option output file 
4D sala 4 6 8 789 BBC #BOOCMDSV_OUTPUT ,BOOSGL CMDOPT,10$ ; Branch if no /OUTPUT 
1g 00000 7¢1 BBC #BOOCMDSV"SAVE BOOSGL_CADOPT,5$ ; Branch if not ‘’.com' 
00000778' 7¢9 MOVAL COM,RIO OOTFABZ+F ABSL DNA + Set .com default 
704 MOVB #4,R10_OUTFAB2+FABSB_DNS : Set size of .com 


Br BE 
Soon ET LBS 
90 
dO 


/OuUT 
IONS 
1 
1079 
1080 
Hi} 
1088 
1084 
1085 
18 
00000000 ' EF 7D 19 5$ MOVB BOOSGB_FILELEN,- 
BO0NR Tae EF 7E1 4 Hy 10_OUTFAB +F ABSB_FNS ; Set up RMS data of size 
aa O° EF 7E6 1090 MOVL BOOSGL_FILEADDR,- 
00000774 'EF O7EC 1091 10_OUTFAB +F ABSL_FNA ; and addr. of file spec. 
grr 1936 SCREATE FAB = RIO_OUTFAB2 ; Create file 
0D 50 €9 O7FE 109 BLBC RO,10$ ; Branch on error 
0801 1095 7S: 
0801 1096 : SCONNECT RAB = RIO_OUTRAB2 ; and open file 
05 443 + 44 10$: RSB 
OBOE 1099 BOOSOPEN_INPUT_2:: 
OE €1 O80F 1100 BBC #BOOCMD$V_INPUT,- 

33 e's eg BH 90 pei} 113) ~~ fooae cHBOPT, 108 : Branch if no /INPUT 
QOODOATI'EF DO B22 Ht pan ee cn ee OS One ee 
000009A0 ‘EF 0898 1105 ; R1O_IRFAB2+F ABSL_FNA ; and addr. of file spec. 

44 1106 SOPEN FAB=RIO_INFAB2 ; and open file 
0D 50 =€9 ty 1108 BLBC RO,10$ ; branch if error 
083D 1109 SCONNECT RAB=R10_INRAB2 ; Establish record stream 
05 ooen 1319 10$: RSB 
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vou BOOSSET OUTPUT <-Open tite for SET/OUTPU ‘AqsEP-19Be S8i05:57 Ladove smeinmsvoniooman:: ae 28, 
4B 1113 ~SBTTL BOOSSET_OUTPUT = Open file for SET/OUTPUT 
0000 re N18 -Entry BOOSSET_OUTPUT, “M<> ; Open option output file 
OF €1 0840 111 BBC #BOOCMD$V_SETOUTPUT,- 
10 00000000‘ EF 4F 1133 BOOSGL_CMBOPT HY 3 Has this file been open? 
$5 111 SCLOSE FAB = RIO_OUTFAB : Close it first then 
75 50 ~=«€9 $6 1 Y BLBC : ; Branch if failure 
QOOOAI9"EF DE 0865 1122 10$: MOVAL LIS.- 
booo08de" 4 90 5s i $ nove RIO_OUTFABS+FABSL_DNA ; Set .lis default 
00000811 "EF 87 1 RIG_OUTFAB3+FABSB_DNS =; Set size of .Lis 
0000000'EF 90 0877 11 MOVB $B00$GB_FILELEN,- 
0000810°EF 87D 11 8 RIO_OUTFABS+FABSB_FNS ; Set up RMS data of size 
00000000°EF 0 0882 11 MOVL  BOOSGL F ILEADDR ° 
00000808 EF DBD 1 ? R1O_OUTFAB +F ABSL_FNA : and addr. of file spec. 
88D 11 SCREATE FAB = RIO_OUTFAB3 : Create fil 
3D 50 E9 089A 11 $ BiBc. -RO,308 | Granch on ereor 
00010000 8F CA 0890 1135 BICL § #BOOCMDSM_TERMINAL,- 
90000000" EF OBAS 11 : BOOSGL_CMBOPT ; ASSUME NOT A TERMINAL DEVICE 
00000000'S8F €1 O8AB 11 BBC DEVSV~TRM, = 
0000081C EF OBAE 1 8 R1O_OUTFABS+F ABSL_DEV.~ se 
00010000 BP C8 08B4 1140 BISL  #BOOCMDSM_TERMINAL,- ° 
00000000' EF OBBA 113 BOOSGL_CMBOPT : SET AS A TERMINAL DEVICE 
BBF 1143 20$:  $CONNECT RAB = RIO_OUTRAB3 : _and fil 
0B 50 £9 ogc 1144 BiBc RO, 308 | erench on error 
00008000 8F CB OBCF 114 BISL  #BOOCMDSM_SETOUTPUT,- 
00000000" EF OBO5 11a? BOOSGL_CMBOPT oy 
06 OBA 1148 308: act L_CMDO Set output open 
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v04 Bousset OUTPUT = Open file for SET/OUTPU 27865-1382 33:38:59 BOOTS. SRCJRMSCONIO.MAR; 1 - 
DB 11 
S 1 R10$Output_Line:: 
DB 1154 ; Output Routine: Use special FAB if SET/OUTPUT or /OUTPUT was specified, 
DB 1 § > RIOSOUTPUT if not. 
25 OOOD0000"EF OD €1 O8DB 11 ‘ BBC #BOOCMD$V_OUTPUT ,BOOSGL MDOPT 10$; /OUTPUT = SPECIFIED? 
QOOOO7BA'EF  O000063C'EF BO O8E3 11 3 MOVW  RIO$GW_OUTLEN,RIO_OUTRAB2+ RS? 
QOO0O7CO'EF  O00000646°EF DE OBEE 115 MOVAL RIOSAB~BUFFER,RIO-OUTRAB oRABSL “har 
FS 1160 SPUT  RAB=RIO_OUTRAGZ 
3F O11 20 1161 BRB 30 
25 OOOOOUOO'EF OF €1 30 1188 10$: BBC #BOOCMDSV_SETOUTPUT, ,B00SGL CM CMDOPT 20$; SET /OUTPUT= SPECIFIED? 
QOOOOBGE'EF  OOO0063C°EF BO 0910 1164 R10$GW -OUTLEN.RIO_ OUTRAB3+ R§2 
00000854"EF  00000646'EF DE 0918 1165 MOVAL RIOSABBUFFER,RIO—OU TRABS*RABSC “RBF 
9 1166 RAB=R10_OUTRAB3 
12 11 0933 116 BRB 30$ 
935 1168 
0935 1169 20S: 
7E Q000063C'EF  3¢ 0935 1170 MOVZWL RIO$GW -QUTLEN,=(SP) : Length 
90000646" EF OF 093C 1171 PUSHAL RIOSAB BUFFER : Address 
F71C 02 FB 3906 1176 CALLS ae RLOSOUTPUT 3 Output to SYSSOUTPUT 
*~ 50 €8 0947 1173 30S: LBS RO,40$ : Branch if OK 
50 DD 094A 1174 PUSHL RO 
00000000'GF 01 FB 0955 1123 CALLS #1,G*LIBSSIGNAL : Signal 
05 0953 1177 40$ RSB ; Return 
0954 1178 
0954 1179 
0954 1180 END 


aS 
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<= MO =x =< 
@eeeecac ce <c« < eaeaeccaec « [- 4 
OTVUMNTU VO € OF FEU OMOTMO-—-QDNOOCO VT VO KONE TT KOON TFT DOWU RK Ow Or te Dee j 
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= = e - he 0 Pa e 31 
Ee a we recere woee VERE SE:BE:SY WANNER iB MB, 
ym 
RIOSAB_BUFFER 0000646 RG =O 
Router non sassy | HERAT ie a 
NAMSB_ESL ~ . p - 2 0000870 RG 
NAMSB7ESS = 0000000 RIOSGL“INBUE |S poepery we | 8 
NAMSB NOP = 0000000 RIO$GW_OUTLE 
NAMSB_RSL = 0990000 RIOSINPUT Sse 
NAMSB_RSS mae 44 444 RIOSOUTPUTC 0000005 RG 03 
NAMSC“BLN : 0900008 RIOSOUTPUT _LINE 90000808 RG i 
NAMSL “ESA = Bonn E RIOMINPEA 0000030C RG 02 
NAMSL RSA = 00000004 RIO_INPFAB 0 9c RG 
NORE AD 0000 634 . 8 RIO" INPRAB Soooo8RE Re OD 
OUTFNE 0000634 R = 0g RIO" INRABS 000009C4 RG 02 
OUTNAM 9000130 R = 0¢ ain imate 00000218 RG 02 
TPN 000001CD R 02 RIO_OUTFAB 00000748 RG 05 
= 0000000A RIO-OUTFAB 
a 9:50 ae St. 
pe phar = SaeHe ug auteg SEE 
PFLSL_WINDOW = 9000000¢ RIO-OUTRAB 0000082C R 02 
PFLSW SIZE = 90000008 $ FOF aeeeener XK 03 
PRS_IPL et aay x 03 sat} SS ketkeeee x 03 
PRMSB_POS = Ott? RSLERM 90000080 R 02 
PRMSB-S17 = 00000014 fa = 00001070 
PRMSC LENGTH = 00000032 SHR$_CREATED o 00001098 
PRMSL ADD = 00000000 SHR$_OPENIN = 00000008 
PRMSL_FLAGS = 00000010 : $_ NORMA aeeeeene KX 03 
PRMST NAME = 00000016 seer rare = 00000003 
PRMSV_ASCII me titties ST SSH~SEVERITY = 00000007 
RMSV "NES = 9000000¢ SUAPACL Q00005A4 R 02 
PRMDEF SIZ = 00000008 SuAPr i 00000528 R 02 
PRM_INFAB 00000400 R = 02 WAPF HCFAB et + A 
PRM_INRAB 00000450 R 02 SUAPFHCKAB titty a nn 
PRM_OUTFAB 00000494 R 02 i EFNAM 00000628 R 02 
payee = 00000004 * e SUPDEFNAMSZ = 00000004 03 
PROMPT IN Q0000A08 R= 02 SYSSCLOSE Seonnena.t aa) 
PUTERROR Reeeeeee x 03 Me piadely eeeeeees GX 03 
RAB$B PSZ = 00000034 BES pS d eeonneee 6 03 
RABSB-RAC = 0000001E REE ceecerse Gh 3 
RABSC_BID = 00000001 syegeutecn eeeeenee GX 03 
RABSC" BLN = 00000044 ay eeent eeeeeeee GX 03 
RABSC_KEY = a 4d 5S 3 RERREEEE GX 03 
RABSC "SEQ ma 45414949 vS$PUT teeeeeee GX 03 
RABSL_BKT = 00000038 ES 4 teeeenee GX 03 
ABSL_ CTX = 444 49 YSSREAD RAEARRAEAE Gx 03 
RABSL_PBF = 00000050 HES tt teneneee GX 03 
RABSL_RBF = 00000028 SYSSURITE = 007C80FA 
eases -n0e = 90000024 Sy Sc ERTENDED = 007¢A033 
RABSAT TPT : 09000002 SYSGSTFACILITY = Booret oS 
RABBV-CVT = OB9000T6 TPAC HUMBER = 90000016 
PBB RSE = 10988008 Heat TOcEAG Ht = Ba9senig 
RABSWUSZ = 900000 TPASL“TOKENE = 0000000E 
RHBUF ~ 0000180 R ~—s_ 02 WCBSWIRE 
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D 13 
RMSCONIO = RMS INPUT/OUTPUT MODULE iF a i at bs 9 83:32:58 yaaeyes Macro V04-00 Page 32 
Symbol table 46-SEP-1984 23:05:27 ([CBOOTS.SRCJRMSCONIO.MAR;1 (5) 
XABSB_AID = 44 54 
XABSB_ALN = 00000009 
XABSB_AOP = 44g 
XABSB_BKZ = $38 16 
ALL = 00000014 
XABSC_ALLLEN = pp RRneo 
—FHC = 0000001D 
XABSC_FHCLEN = 0000002 
$C_LB = 0000000 
XABSL_ALQ = 0000001 
XABSL_EBK = 00000010 
$L_LOC = Boop bo oS 
XABSL_NXT = 00000004 
XABSM_CBT = 00000020 
XABSV_CBT = 00000005 
XABSV_CTG = 00000007 
XABSV_HRD = 00000000 
$w_ = 00000014 
XABSW_RF IO = 00000018 
XABSW_RFI2 = QOOQOO0IA 
XABSW_RFI4 = 0000001C 
XABSW_ VOL = Q000000A 
ROES Q000001F3 R 02 
teresa scan ee sneeczne= + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. Ss -« 00000000 ( 0.) OO ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
PAGED_DATA QOOOOAID ( 2589.) 02 ¢ ‘i NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
PAGED_ CODE 00000954 ( 2388.) 03 ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
SRMSNAM 00000007 <¢ 7.) 04 € 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
+ eee ee EP Smee mm ee 
! Performance indicators ! 
ewe een ene ewer eee tw eo mame seen 
Phase Page faults CPU Time Elapsed Time 
passes 13 $808.07 08:88:80.4 
omma rocessin :00:00. :00:02. 
eos 1 . 513 00:00:98. 9 00:00: 56.00 
Symbol table sort 0 00:00: €-h2 00:00:05.14 
Pass 2 251 00:00:05.05 00:00:09.87 
Symbol table output 33 ae Bt a 00:00:00.38 
Psect synopsis output 3 00:00:00.02 BD OO 288 OF 
Cross-reference output 0 00:00:00.00 00:0 19-9 
Assembler run totals 968 00:00:31.41 00:01:14.31 


The working set_ Limit was 1800 pages. 

121882 bytes (239 pages) of virtual memory were used to buffer the intermediate “wet 

There were 80 pages of symbol table space allocated to hold 1506 non-local and 58 local symools. 
1180 source Lines were read in Pass 1, produc ing 49 object records in Pass 2. 

58 pages of virtual memory were used to define 51 macros. 
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RMSCONIO = RMS INPUT/OUTPUT MODULE 15-SEP=1 
AX-11 Macro Run Statistics 4-SEP-1 
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! Macro Library statistics ! 


$ccuceennecessseunanssaanans 


Macro Library name Macros defined 


“B9580uase 8: ESys-08N3¢ 4 tT MLB; 1 


B;1 
S5$DUAC8 SYS IBISTARLET. FAL; 2 


Torre (all Libraries) 
1863 GETS were required to define 48 macros. 


fw 
@owo— 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMSCONIO/OBJ=0BJ$:RMSCONIO MSRC$:RMSCONIO/UPDATE=(ENH$S:RMSCONIO) +EXECML$/LIB+LIB$:BOOTS.MLB/LIB 
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